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Chapter 1 

INTRODUCTION 

UNIX* Pascal is ANSII Standard Pascal with extensions including 
random i/o, separate compilation, and the capability for interfacing 
with C language routines. UNIX Pascal runs under the UNIX System 
V Release 2.0 operating system on the DECf VAXf 11/750, 11/780; 
and the AT&T 3B20S, 3B2 and 3B5 computers. The compiler permits 
symbolic debugging with sdb, profiling with prof, and examination 
of object files with the various SGS utilities. Libraries of Pascal 
programs can be created with the archiver ar. The make utility can 
be used to create executable files from Pascal source files. 


This User’s Guide is designed to help users familiarize themselves 
with UNIX Pascal. Appendix C, references [1] and [3] contain 
information on Pascal programming and the Pascal language that is 
beyond the scope of this guide. The user should consult these 
references as needed. 

General information on the UNIX System can be found in the UNIX 
System User's Manual provided with your UNIX system. Only very 
basic features of the UNIX system are assumed in this guide. 
Experienced Pascal and UNIX system users should find most of what 
they need in the examples. 


* UNIX is a trademark of AT&T Bell Laboratories, 
f DEC and VAX are trademarks of Digital Equipment Corporation 
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Chapter 2 

USE OF THE UNIX PASCAL COMPILER 


Program Name Convention 

The UNIX Pascal compiler requires Pascal source files to be named 
with a " .p" suffix. The system will name assembly code files with a 
" .s" suffix and will name object files with a " .o" suffix. Files listed 
on the command line will be taken as assembly code files if they end 
in " .s" and as object files if they end in " .o" . Other file names will 
be taken to be names of libraries. 


UNIX System Prompt 

Throughout this guide we will use the dollar sign " $" to denote the 
UNIX system prompt. 


Invoking The Compiler 

The UNIX Pascal compiler is invoked by the pc command issued at 
the UNIX system prompt. The general format of this command is as 
follows: 


$ pc options filenames 

The expression options denotes zero or more compiler-options 
separated by blanks. The expression filenames denotes one or more 
UNIX system file names separated by blanks. The compiler will 
accept Pascal, assembly language, and object files as input; 
performing the proper translation of each. 
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Getting Started 

Suppose you have a simple Pascal program on a file " prog.p" that 
you want to compile and execute. Some basic ways to do this are 
demonstrated in the following example. 


If you want to try things out, create the file " prog.p" containing the 
following Pascal program and run the three parts of the following 
example. 


program test(output); 
begin 

writeln(’hello world’); 
end. 


EXAMPLE - Invoking the Compiler 

$ pc prog.p 
$ a.out 


The first command above invokes the UNIX Pascal compiler on 
prog.p, and if the compilation is successful, the executable file 
" a.out" is produced. The second command causes the program a.out 
to be executed. 


$ pc -o prog prog.p 
$ prog 

The first command above invokes the UNIX Pascal compiler on 
prog.p, and if the compilation is successful, the executable file " prog" 
is produced. The second command causes the program prog to be 
executed. 


2-2 



USE OF THE UNIX PASCAL COMPILER 


$ pc -t -0 -o prog prog.p 
$ prog 

The first command above invokes the UNIX Pascal compiler on 
prog.p as before but with run-time checks disabled and the optimizer 
enabled. These options can be used to increase performance once a 
program has been fully debugged. 


Command-Line Options 

This section contains a list of the compiler options that are 
recognized by the pc command and a brief description of their 
meanings. 


OPTION 

-Idirectory 


-A 



MEANING 

This option causes directory to be searched 
when looking for include files. This option may 
appear more than once. Directories will be 
searched in the order they appear on the 
command line. The current directory will be 
searched if the include file is not found in any 
of the specified directories. 

This option causes the compiler to distinguish 
between upper and lower case characters in 
identifiers and to allow the underscore 
character (" ) to follow the first character in 

identifiers. 

This option causes the compiler to identify 
non-standard Pascal constructs. The presence 
of a non-standard Pascal construct will inhibit 
generation of an executable file when this 
option is specified. 
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OPTION 

-S 

-c 

-O 

-o prog_name 

-Wc,argl[,arg2...] 

-g 

-P 

-q size 


MEANING 

This option causes the compilation process to 
terminate after an assembly file has been 
generated. The assembly file will have the 
same name as the source file except a " .s" 
suffix will replace the " .p" suffix. 

This option suppresses the link edit phase of 
compilation. An object file with a " .o" suffix 
will be created for every source file on the 
command line. 

This option causes the assembly code generated 
by the compiler to be run through a peephole 
optimizer. 

This option causes the executable program that 
results from a compilation to be placed in the 
file prog_name. 

This option causes the arguments] argi to be 
passed to pass c where c is one of [012al] 
indicating first pass, second pass, optimizer, 
assembler, or link editor, respectively. 

This option causes the information required by 
the symbolic debugger, sdb, to be generated. 

This option causes information required by the 
profile utility, prof, to be generated. 

This option sets the size limit on the run-time 
stack to size K bytes. This limit is used for an 
overflow check which is made unless the -t (or 
-Ts) option is present. If size is set large 
enough, the overflow check will be ineffective as 
the UNIX operating system will cause the 
program to dump core when the maximum 
process size is exceeded. 
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OPTION 

-b 

-u 

-t 

-T args 


-w 


MEANING 

This option causes the file " output" to be block 
buffered. The default is line buffered. 

This option causes the file " output" to be 
unbuffered. 

This option disables the generation of code for 
certain run-time checks. Code for all run-time 
checks will be generated if this option is 
omitted. 

This option causes specific runtime checks to be 
suppressed. The checks to be suppressed are 
indicated by the characters in the string args. 
The characters have the following meanings: 

z - don't zero out local and dynamic variables 

r - don't do index and scalar range checks 

n - don't do valid pointer 

i - don't do output checks 

s - don’t do stack overflow check 

d - don’t do divide by zero and mod by negative 

checks 

This option suppresses warning messages. 
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Error Reporting 


Compile Time Messages 

There are four classes of messages emitted by the UNIX Pascal 
compiler. Syntax messages flag syntax errors and indicate any 
recovery action taken in order to continue parsing. Error messages 
notify the user of semantic errors. Warning messages note probable 
errors. Warning messages will be suppressed if the -w option is 
present. Non-standard messages are issued if the -n option is used 
and an extension of ANSII standard Pascal is encountered. 


Some messages relate to an entire routine (program, procedure, or 
function) rather than any particular line. These messages follow the 
messages associated with lines in the routine. Only warning messages 
do not inhibit the formation of an executable file. 


example: 

$ pc -s prog.p 

syntax: line 123 - inserted 

non-std: line 234 - all variables should be declared in one var part 
error: line 345 - i is undefined 
In program p: 

warning - variable x is never used 

error - label 67 was declared but not defined 


Run Time Messages 

The Pascal run time system may issue error messages during the 
execution of a program. These messages will always immediately 
precede termination of execution with core dump. 
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example: 

$ a.out 

PASCAL: Pointer value out of range 
sh: 2974 abort - core dumped 
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ANSII STANDARD PASCAL 


The UNIX Pascal language is based on the definition of ANSI 
standard Pascal given in Appendix C, reference [1]. Users should 
consult this reference for formal definitions of UNIX Pascal features. 


A practical introduction to the UNIX Pascal language is given in 
Appendix C, reference [3]. This text is recommended for use by both 
novice and experienced programmers. The conformant array feature 
described in Appendix C, reference [3] is not implemented in UNIX 
Pascal. 


The remainder of this section provides a number of examples that 
demonstrate basic and not so basic features of Pascal. For 
experienced Pascal users these examples should provide a quick 
review. 


EXAMPLE - Copy Program 

This example demonstrates a standard routine for copying one file of 
characters to another file of characters. The program makes use of 
the redirection capability provided by the UNIX system to achieve 
the desired generality. 
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program copy(input, output); 
var 

ch: char; 
begin 

while not eof(input) do 
begin 

while not eoln(input) do 
begin 

read(input, ch); 
write(output, ch); 
end; 

readln(input); 

writeln(output); 

end; 

end. 


Suppose the program has been compiled and its executable file is 
named prog. The following command will cause infile to be copied to 
exfile. 

$ prog < infile > exfile 


EXAMPLE - Eight Queens 

This example provides a solution to the eight queens problem as 
described in Appendix C, reference [3]. The program demonstrates 
the various declaration-parts of a Pascal program, in addition it 
demonstrates the use of procedures, data structures such as arrays 
and sets, and recursion. 
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program eightqueens(input, output); 
const 

boardsize = 8; 
type 

zoneset = set of 1 .. 38; (* rows are numbered 1 through 8, *) 

(* upward diagonals 9 through 23, and *) 
(* downward diagonals 24 through 38 *) 

boarddomain = 1 .. boardsize; 
var 

zonetable: array[boarddomain, boarddomain] of zoneset; 
solution: array[boarddomain] of boarddomain; 
boardsizeplusone: integer; 
solutioncount: integer; 
usedzones: zoneset; 

procedure initialize; 

var 

row, col: boarddomain; 
begin 

solutioncount := 0; 
boardsizeplusone := boardsize 4- 1; 

(* zonetable contains the numbers of the row/diagonals that, *) 

(* containing a queen, will threaten square, (row, col). *) 

for col := 1 to boardsize do 
for row := 1 to boardsize do 
zonetable[row,col] := [row,col-row+16,col+row+22]; 

(* usedzones contains the numbers of the rows/diagonals *) 

(* threatened by the queens currently on the board. *) 
usedzones := []; 
end; 
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procedure printsolution; 
var 

index: boarddomain; 
begin 

solutioncount := solutioncount + 1; 
write(solutioncount: 4/ ’:8); 
for index := 1 to boardsize do 
write(solution[index]:4); 
writeln; 
end; 

(* place a queen in column, col *) 
procedure placequeen(col: integer); 

var 

newzones: zoneset; 
row: boarddomain; 

begin 

if (col = boardsizeplusone) then 
printsolution 
else 

for row := 1 to boardsize do 
begin 

newzones := zonetable[row,col]; 
if newzones * usedzones = [] then 
begin (* we can safely place queen here *) 
usedzones := usedzones + newzones; 
solution[col] := row; 

placequeen(col 4- 1); (* place queen in next column *) 

usedzones := usedzones - newzones; 
end; 
end; 

end (* placequeen *); 

begin (* eightqueens *) 
initialize; 
placequeen(l); 
end. 
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EXAMPLE - Pointer Variables 

This example demonstrates the declaration and use of pointer 
variables in Pascal. The program creates a simple linked list of 
integers and then prints out the entries in the list. The values are 
written to the output file since no file variable is specified in the 
write statement. 


program linkedlist(input, output); 
type 

intrecref = intrec; 
intrec = record 
i: integer; 
p: intrecref; 
end; 
var 

start, x: intrecref; 
n: integer; 
begin 

start := nil; 
for n := 1 to 10 do 
begin 
new(x); 
with x do 
begin 
i := n; 


p := start; 
end; 

start := x; 
end; 

x := start; 
while (x <> nil) do 
begin 

writeln(x .i); 
x := x\p; 
end; 
end. 
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EXAMPLE - Record I/O 

This example demonstrates the use of records and files of records as 
well as the use of reset, put, and get. There are two programs. The 
first program creates a file of records and the second program prints 
out the file created by the first program. Pascal handles the 
formatting of the file for the user. In general, Pascal files other than 
TEXT files cannot be generated with a text editor. 


program createfile(output, datafile); 
type 

candirec = record 
c: char; 
i: integer; 
end; 
var 

r: candirec; 

datafile: file of candirec; 
n: integer; 
begin 

rewrite(datafile); 
for n := 1 to 10 do 
begin 
with r do 
begin 

c := chr(n+64); 
i := n; 
end; 
r.i := n; 
datafile := r; 
put(datafile); 
end; 

end (* createfile *). 
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program printfile(input, output, datafile); 
type 

candirec = record 
c: char; 
i: integer; 
end; 
var 

r: candirec; 

datafile: file of candirec; 
begin 

reset(datafile); 
while not eof(datafile) do 
begin 

r := datafile ; 
writeln(r.c/ ’,r.i); 
get(datafile); 
end; 

end (* printfile *). 

Note that the second program could not have successfully read in a 
file of character/integer pairs generated with a text editor (such as 
ed) even though the file record components are made up of 
character/integer pairs. The necessary formatting of the file records 
in this case is handled by Pascal in the first program. In general, 
Pascal files other than text files cannot be created using a text 
editor. 
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EXAMPLE - Variant Records 

This example demonstrates the use of case variant records. Again 
there are two programs. The second program creates a file of case 
variant records and the first program prints out the file created by 
the second program. 


program printcvfile(output, cvdatafile); 
type 

tagtype = (int, rel, car, log); 
value = record 
case tag: tagtype of 
int: (i: integer); 
rel: (r: real); 
car: (c: char); 
log: (b: boolean); 
end; 
var 

x: value; 

cvdatafile: file of value; 
begin 

reset(cvdatafile); 
while not eof(cvdatafile) do 
begin 

x := cvdatafile ; 
case x.tag of 

int: writeln(x.i, ’ integer’); 
rel: writeln(x.r, ’ real’); 
car: writeln(x.c, ’ char’); 
log: writeln(x.b, ’ boolean’); 
end; 

get(cvdatafile); 

end; 

end (* printcvfile *). 


3-8 



ANSII STANDARD PASCAL 


program createcvfile(output, cvdatafile); 
type 

tagtype = (int, rel, car, log); 
value = record 
case tag: tagtype of 
int: (i: integer); 
rel: (r: real); 
car: (c: char); 
log: (b: boolean); 
end; 
var 

x: value; 

cvdatafile: file of value; 
m,n: integer; 
begin 

rewrite(cvdatafile); 
for n := 1 to 10 do 
begin 

m := n mod 4; 
case m of 
0: begin 

x.tag := int; 
x.i := n; 
end; 

1: begin 

x.tag := rel; 
x.r := sqrt(n); 
end; 

2: begin 

x.tag := car; 
x.c := chr(64 + n); 
end; 

3: begin 

x.tag := log; 
if (n <= 5) then 
x.b := true 
else 

x.b := false; 
end 
end; 
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cvdatafile := x; 
put(cvdatafile); 
end; 

end (* createcvfile *). 
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UNIX PASCAL EXTENSIONS 


This chapter describes features of the UNIX Pascal implementation 
that are properly called extensions to standard Pascal. The term 
" string" will be used here to mean either 1) a sequence of characters 
delimited by single-quotes or 2) a variable of type packed array [1..N] 
of char, where N is a positive integer. 


External File Associations 

A file variable appearing in the program header will be associated 
with an external UNIX system file of the same name. Otherwise, the 
two argument forms of " reset" and " rewrite" or " randio" (discussed 
below) can be used to associate a file variable with an external UNIX 
system file. If any of the files " input" , " output" , or " auxout" 
appear in the program heading (or if there is no program heading) 
they will be connected to the external UNIX system files, standard 
input, standard output, and standard error, respectively. 


File Handling Routines 

This section describes special file-handling routines that are available 
in the UNIX Pascal implementation. Reset , rewrite , and randio are 
used to open files. A call to one of the other file handling routines 
which take a file variable as an argument will result in an error if 
the file has not been opened with one of these three. 


Function - exists 

The call exists^ filename) returns true if the string filename contains 
the name of an existing UNIX file; otherwise it returns a false. This 
function enables the program to check to see if a file exists before 
attempting to open it with randio or the two-argument form of reset. 
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Procedure - reset 

The call reset(f filename) causes the external file whose name is 
specified by the string filename to be associated with the Pascal file 
variable / and opened for reading only. This two-argument form of 
reset otherwise conforms to the specifications for the one-argument 
form of reset. 


Procedure - rewrite 

The call rewrite(f filename) causes the external file whose name is 
specified by the string filename to be associated with the Pascal file 
variable / and opened for writing only. This two-argument form of 
rewrite otherwise conforms to the specifications for the one- 
argument form of rewrite. 
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Procedure - randio 

The call randio(f filename , option_string) causes the external file 
whose name is specified by the string filename to be associated with 
the Pascal file variable /and opened for the operation specified in the 
option string. Valid option strings for this procedure are given 
below. 


OPTION MEANING 

Y If the specified file does not exist an error 
results. Otherwise it is opened and made 
available for reading only. 

'w' If the specified file does not exist an empty file 

is created. Otherwise it is opened and truncated. 
The file is made available for writing only. 

V If the specified file does not exist an empty file 
is created. Otherwise the file is opened at the 
end of the file. The file is made available for 
writing only and all writes will append to the 
file no matter which record is made current 
with seek. 

'r+' If the specified file does not exist an error 

results. Otherwise the file is made available for 
reading and writing. 

'w+' If the specified file does not exist an empty file 

is created. Otherwise the file is opened and 
truncated. The file is made available for 
reading and writing. 

'a+' If the specified file does not exist an empty file 

is created. Otherwise the file is opened at the 
end of file. The file is made available for 
reading and writing. All writes will append to 
the file no matter which record is made current 
with seek. 
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Function - openok 

The function call openokff) returns the value true if and only if the 
Pascal file variable / is presently associated with a file, otherwise it 
returns false. If an attempt to open the file f fails, openok(f) will 
return false after the attempt. 


Function - extent 

The function call extent(f) returns the number of Pascal records in 
the file that is currently associated with the Pascal file variable /. 
This function returns zero if / is associated with an empty file. An 
error results if / is not associated with a file. 


Procedure - seek 

The call seek(f ivexp) will cause the record specified by the value of 
the integer-valued expression ivexp to be assigned to f . This 
procedure can be used only with files that were opened with the 
procedure randio using the above options. The value of ivexp must 
be greater than zero and not greater than extentff) + 1. A value 
outside this range will cause an error. After the call to seek, record 
ivexp will be the current record (a subsequent put or get will put or 
get that record). A file opened by randio with the ’a’ or ’a+’ options, 
however, will always be written at the end of file regardless of the 
calls to seek. 


Procedure - close 

The call close(f) causes the file associated with the Pascal file 
variable / to be disassociated from /and closed. 


Procedure - closeall 

The call closeall will cause all files associated with Pascal file 
variables to be disassociated from them and closed. This procedure 
does not close the predefined files input, output and auxout. These 
files may be closed using the procedure close. 
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Procedure - remove 

The call remove(f) will cause an external file associated with the 
Pascal file variable/ to be disassociated from it and deleted from the 
file system. 


EXAMPLE - File Handling Routines 

This example demonstrates the use of some of the file-handling 
routines described above. 


program test(input, output); 
var 

f: text; 
begin 

if exists (’exfile’) then 
reset(f, ’exfile’); 
if openok(f) then 
if extent(f)>0 then 
close(f) 
else 

remove(f); 

end. 


Random Input and Output 

The ability to perform random-access input and output on files of 
Pascal records is provided by the procedures randio and seek as 
described above. Records on Pascal files are numbered for this 
purpose starting at 1. Neither of these procedures is applicable to 
Pascal textfiles. 


EXAMPLE - Random I/O 

This example demonstrates the use of the random-access routines 
provided by the UNIX Pascal compiler. The following program reads 
integers from the input file and tallies the number of occurrences of 
integers in the range 1 .. 10 using the file exfile. The program stops 
collecting input when a zero is entered and prints the tallies in 
reverse order. 
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program test(input, output); 
type 

intrec = record 
count : integer; 
end; 
var 

f: file of intrec; 
i: integer; 
begin 

(* initialize counts to zero *) 
rewrite(f, ’exfile’); 
for i := 1 to 10 do 
begin 

f .count := 0; 
put(f); 
end; 
close(f); 

randio(f, ’exfile’, ’r+’); 

(* collect input until a zero is entered *) 
read(input, i); 
while (i <> 0) do 
begin 

if ((1 <= i) and (i <= 10)) then 
begin 
seek(f, i); 

f .count := f .count + 1; 
put(f); 
end; 

read(input, i); 
end; 

(* print the tallies in reverse order *) 
for i := 10 downto 1 do 
begin 
seek(f, i); 

writeln(output, i, f .count); 
end; 

close(f); 

end. 
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Notice that the file exfile was written and read within the same call 
to randio. 


Separate Compilation 

The UNIX Pascal compiler provides the ability to compile large 
programs in smaller pieces. This facility not only permits 
modularization in code development but also limits the need for 
recompilation when changes in source code are made. Details of this 
separate compilation facility are contained in the following sections. 


Compilation Units 

The UNIX Pascal Compiler will recognize two kinds of compilation 
units, programs and modules. Program is defined in the ANSII 
Standard for the Pascal Language in Appendix C, reference [1]. 
Module is defined using previous definitions as follows: 


module = constant-declaration-part 
type-declaration-part 
variable-declaration-part 
procedure-and-function-declaration-part 


A module differs from a program in three significant points. A 
module has no heading to identify it as a program does. A module 
has no label-declaration-part. A module has no statement-part. 


External Declarations 

Procedures and functions that are defined in one module and 
referenced in a different module must be declared with an external 
declaration in the module where they are referenced. An external 
declaration is a procedure-declaration or function-declaration that 
uses the directive external. Only outer-level procedures and functions 
can be declared external. The module containing the routine 
definition may also contain an external declaration for the routine. 
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In this case, the routine heading for the definition should not declare 
the routine's parameters or return type (similar to the usage of the 
forward directive). 


Usage Conventions 

Constants, types and variables that are declared at the outer-level of 
a module will be considered global to the program that is linked with 
the module. All constants, types, and variables that are referenced in 
a module must be declared in that module. As mentioned above 
procedures and functions that are referenced in a module must be 
declared external in the module. 


The user is responsible for the consistency of declarations in different 
compilation units. Violations of consistency include 1) a constant 
declared in two compilation-units with different values 2) a type 
declared in two compilation-units with different definitions 3) a 
variable declared in two compilation-units with different types. 


Consistency of declarations across compilation-units can be ensured 
by using the include facility described below to incorporate files with 
the relevant declarations into the compilation-units. 


EXAMPLE - Separate Compilation 

This example demonstrates the use of the separate compilation 
facility provided with the UNIX Pascal compiler. 

program test(input, output); 

procedure message; external; 

begin 

message; 

end. 
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The Pascal procedure message is defined as follows: 

procedure message; 
begin 

writeln( , hello world'); 
end; 


Suppose the program is on the file " prog.p" and the procedure is on 
the file " mesg.p" . The following sequence of commands may be used 
to compile and execute the program. The program writes " hello 
world" when executed. 


$ pc -c mesg.p 
$ pc -o prog prog.p mesg.o 
$ prog 

Of course, it is possible to have more than one file like mesg.p. 
Suppose in the above example there are two such files " mesgl.p" and 
" mesg2.p" . The following sequence of commands may be used to 
compile and execute the program. 


$ pc -c mesgl.p 
$ pc -c mesg2.p 

$ pc -o prog prog.p mesgl.o mesg2.o 
$ prog 


The first three lines above could be performed in a single line as 
follows. 


$ pc -o prog prog.p mesgl.p mesg2.p 


Interface with C Language Routines 

The UNIX Pascal compiler provides the ability to call a large class of 
routines that are written in the C language. This section describes 
details of this interface. 
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Declaration Conventions 

In order to call a routine written in C from a Pascal program, it is 
necessary to declare the C routine in the Pascal source code with an 
" external C" directive. This declaration must conform to the syntax 
of Pascal and communicate C type information in the form of 
equivalent Pascal type declarations. The nature of this equivalence is 
defined in the next section. 


Data Type Equivalences 

The following rule defines the set of Pascal types which have 
equivalent types in C. 


type -> char j integer ! real 
! ~ type 

! array[m..n] of type 
! packed array[m..n] of type 

Where m and n are integer constants. The equivalences are given in 
the following table. 


PASCAL DECLARATION 

x : integer; 
x : real; 
x : char; 
x : type; 

x : array[m..n] of type; 
x : packed array [m..n] of type; 


C DECLARATION 

int x; 
double x; 
char x; 
type *x; 
type x[m-n+l]; 
type x[m-n+l]; 


Note that the above equivalences permit the use of a packed array 
wherever an array can be used. For example, the Pascal declaration 
" s : packed array [1..10] of char;" (also known as " alfa" ) is 
equivalent to the C declaration "char s[10];" . The C language will 
also permit s to be declared " char s[];" . 
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Here are some examples of equivalent declarations. 

PASCAL DECLARA TION C DECLARA TION 


a : array[1..3, 2..5] of char; 
b : array[-1..3, 4. .5] of real; 
c : integer; 

d : array[1..7] of integer; 


char a[3][4]; 
double b[5] [2]; 
int *c; 
int *d[7]; 


type t = array[1..7] of integer; 
e : ‘t; int (*e)[7]; 


The user is responsible for making the appropriate adjustments for 
array indexing differences between Pascal and C routines. In the 
above example, " a[2,5]" in a Pascal routine would refer to the same 
element of a as " a[l] [3]" in the C routine. 


Data Sharing Between Pascal and C Routines 

Pascal and C can share variables which have been declared with 
equivalent declarations. Sharable data must be declared at the 
outermost (program) level on Pascal files and outside the scope of 
any routines on C files. 


Parameter and Return Type Equivalences 

A C routine can be declared in a UNIX Pascal program if 1) all its 
parameter types can be expressed as equivalent Pascal parameter 
types and 2) its return type can be expressed as an equivalent Pascal 
return type. 

To pass a Pascal array to a C routine, it must be declared as a var 
parameter in the C routine’s external C declaration. For types other 
than array, a Pascal var parameter of type type is equivalent to a C 
pointer to type. For example, a Pascal " char" passed as a var 
parameter is the same as the C " char *" which is frequently used for 
strings. 
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Restrictions on External C Routines 

The above conventions prohibit the use in Pascal programs of C 
routines that 1) allow an arbitrary number of arguments 2) take 
arguments that are C structures or C functions 3) return a pointer to 
a C structure or a C function. In addition, functions declared as 
" external C" cannot be passed into Pascal procedures or functions 
that take functional arguments. 


EXAMPLE - Calling C Routines 

When the following program is executed the output will be 3. Notice 
that a null character was assigned to one of the elements of the 
variable pstr in the Pascal program. Notice also that the first index 
of the C array is zero and that pstr[l] corresponds to the first 
element of the C array. 


program test(input, output); 
type 

pstring = packed array [1 .. 5] of char; 
var 

pstr : pstring; 
nulc : char; 

function stringlength(var p: pstring): integer; 
external C; 

begin 

nulc := chr(O); 
pstr := ’abcde’; 
pstr[4] := nulc; 
writeln(stringlength(pstr)); 
end. 
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The C function stringlength is defined as follows: 

int stringlength(s) 

char s[] ; 

/ 

i 

int i; 

i = 0; 

while (s[i] != \0’) 

i = i + 1; 

return(i); 

i 

j 


EXAMPLE - Data Sharing 

This example demonstrates the ability of Pascal an C to share 
variables. The variable j is shared by a Pascal program and a block 
of C code. 


program test(input, output); 
var 

i, j, k: integer; 

function addjto(x: integer): integer; 
external C; 

begin 
i := 4; 
j := 5; 

k := addjto(i); 
writeln(i, j, k); 
end. 
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The C function addjto is defined as follows: 


int j; 

int addjto(x) 
int x; 

{ 

return(j 4- x); 

} 

The following commands might be used to compile and run the 
program. Suppose the program is on file " prog.p" and the C function 
is on file " addj.c" . 


$ cc -c addj.c 
$ pc -o prog prog.p addj.o 
$ prog 


EXAMPLE - Calling C Library Routines 

C library routines will automatically be linked in by the pc 
command. The user may call any of these routines that have 
supported Pascal equivalents for their parameter and return types. 
The following program finds palindromes using the C library 
routines: strcmp, strlen, and tolower. 
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program palindrome(input, output); 
const 

linmax = 80; 

type 

line = packed array [1.. linmax] of char; 

var 

ini, backl : line; 
i, length : integer; 
c : char; 

function strlen(var string : char) : integer; 
external C; 

function strcmp(var left, right : char) : integer; 
external C; 

function tolower(c : char) : char; 
external C; 


begin 

writeln(’Type in a sentence which is the same when reversed’); 
while not eof do begin 

(* read in line, remove blanks, map to lower case *) 

i := 1; 

repeat 

read(c); 

if c <> ’ ’ then begin 

inl[i] := tolower(c); 

i := i + 1; 

end; 

until (i = linmax) or eoln; 

inl[i] := chr(O); (* C strings must be NULL terminated *) 
readln; 

(* make mirror string and compare for equality *) 
length := strlen(inl[l]); 
for i := 1 to length do 

backl[i] := inl[length - i + 1]; 
backl[length + 11 := chr(0); 
if strcmp(inl[l], backl[l]) = 0 then 

writeln(’That‘s a Palindrome!’) 

else 

writeln(’Try Again’); 

end; 

end. 
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Command Line Argument Handling Routines 

This section describes special routines that are available in the UNIX 
Pascal implementation for handling command-line arguments. 


Function - argc 

The function call argc returns the number of arguments on the 
command-line where the program was invoked. The first argument 
on the command-line is the program name. This function always 
returns a positive integer. 


Procedure - argv 

The call argv(ivexp, s) will cause the command-line argument 
specified by the value of the integer-value expression ivexp to be 
assigned to the string variable s, truncating or blank-padding as 
necessary. The first argument of argv is an integer-valued expression 
whose value when evaluated must be greater than zero and not 
greater than argc. When an argument outside this range is used, s 
will be assigned all blanks. 


Function - arglen 

The function call arglen(ivexp) returns the number of characters in 
the command-line argument specified by the value of the integer- 
valued expression ivexp. When a value outside this range is used, an 
error is produced. This function can be used to determine if the 
procedure argv has returned a truncated string. This happens if the 
string supplied to argv is not large enough. 


EXAMPLE - Command Line Arguments 

This example demonstrates the use of the argument-handling 
routines described in this section. The following program reads each 
argument on the command-line and prints it on the output file, one 
argument per line. If any argument is longer than the value of max 
in this program, truncation will occur. In this case, the word 
" truncated" will be written after the argument. 
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program test(input, output); 
const 
max = 10; 
type 

argtype = packed array [Umax] of char; 
var 

arg: argtype; 
i, j: integer; 
begin 

for i := 1 to argc do 
begin 

argv(i, arg); 
for j := 1 to max do 
write(output, arg[j]); 
if (arglen(i) > max) then 
write(output, 9 truncated’); 
writeln(output); 
end; 
end. 


Suppose this program is located on the file " prog.p" and is compiled 
and executed as follows. 


$ pc -o prog prog.p 

$ prog firstargument secondone thirdargument lastone 


The resulting output would be: 


prog 

firstargum truncated 
secondone 

thirdargum truncated 
lastone 
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In-Line Source Options 


Include Facility 

This section describes the syntax and use of the include facility that 
is part of the UNIX Pascal compiler. Basically, the include facility 
enables a single line in a Pascal program to be replaced during 
compilation by the contents of a specified file. This line is called an 
include statement. 

Programmers can achieve greater modularity in their source code by 
incorporating commonly used declarations and routines into their 
programs during the compilation process. The most important use of 
the include facility however is as a mechanism to ensure the 
conformance of declarations across separately compiled modules. It 
also simplifies the implementation and maintenance of a global 
environment that is to be used by all program modules. 


An include statement^ specified by a line whose format is one of the 
following, where the character, " #" , appears in the first position of 
the line and filename represents a valid UNIX filename. 


^include " filename' 
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EXAMPLE - Include Files 

This example demonstrates the use of the include facility and 
separate compilation. 


$ cat prog.p 

program test(input, output); 
^include " vars.ext" 

^include " proc.ext" 

procedure pi; 
begin 
write(x); 
end; 

procedure p2; 
begin 
write(x); 
end; 

begin 
ch := ’A’; 
i := 3; 
p3; 
end. 
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$ cat exp3.p 
^include " vars.ext" 
^include " proc.ext" 

procedure p3; 
begin 
pl(ch); 
write(’ = ’); 

P2(i); 

end; 


$ cat vars.ext 
var 

i: integer; 
ch: char; 


$ cat proc.ext 

procedure pl(x: char); external; 
procedure p2(x: integer); external; 


The following command may be used to compile and run the program. 
The expected output from the program is " A = 3" . 


$ pc -o exp3.o exp3.p 
$ pc -o prog prog.p exp3.o 
$ prog 


Source Line/File Specification Facility 

A statement of the form 


#line linenumber [" filename" ] 


where linenumber is a positive integer and filename is a UNIX 
system filename will force the compiler to consider subsequent lines 
as coming from file filename starting at line linenumber. The " #" 
character must appear in the first column. This facility might be 
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used by a Pascal program generator in order that diagnostics and 
debugging information would be given in terms of the line numbers 
of the programs generator's input instead of those of the Pascal 
programs produced. 


Additional Predefined Types and Operators 

The type " alfa" is predefined as " packed array[1..10] of char" . The 
type " intset" is predefined as " 0..127" . " Intset" is used as the 
default base type for constant sets when the type of the constant is 
not determinable from the context. 


The '<' and ’>' symbols can be used in set expressions for proper set 
inclusion. " setl < set2" has the same meaning as " (setl <= set2) 
and (setl <> set2)" . " setl > set2" has the same meaning as " (setl 
>= set2) and (setl <> set2)" . 


String Padding 

The UNIX Pascal compiler will pad constant strings with spaces to 
the necessary length. So even if a variable " s" is declared to be an 
" alfa" , the assignment " s := 'string’" will be legal and " s" will 
contain spaces in its rightmost 4 elements. 


Input and Output of Enumeration Types 

Enumeration types may be read and written in symbolic form. On 
output the string associated with a enumeration value is written to 
the file. And on input such a string will be acceptable input for 
reading into an enumeration variable. 
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Structure Returning Functions 

Functions may return any structured type not containing a file. 


Other Non-Standard Routines 


Non-Standard Procedures 


date(a) 

assigns the current date to the alfa variable a 
in the format ’dd mmm yy’ where ’nunm’ is the 
first three characters of the month name. 

halt 

terminates execution of the program. 

time(a) 

assigns the current time to the alfa variable a 
in the format ’hh:mm:ss\ 

null 

does nothing. 


Non-Standard Functions 


card(x) returns the number of elements in set x (i.e., 

the cardinality of x). 

clock returns the number of central processor 

milliseconds of user time used by the process. 


expo(x) 


returns the exponent in the floating point 
representation of the real x. 


random(x) returns a random real number between 0.0 and 

1.0. The real argument is evaluated but 
ignored. 

seed(i) seeds the random numbers with the integer i 

and returns the previous seed. 
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THE UNIX PASCAL SUPPORT 
ENVIRONMENT 


Symbolic Debugging of Pascal Programs 

Limited use of the symbolic debugger (sdb) is supported with Pascal 
programs. Because sdb was originally intended for use with C 
programs, some special care is necessary to use it effectively with 
Pascal. With the information provided in this section it is possible to 
breakpoint, single step, and print a stack trace, as well as display a 
large class of data items. 

Single stepping and trace printing are done in the usual manner with 
the s and t commands respectively. Breakpointing is the same except 
for the following permutation of routine names. Pascal procedures 
and functions at the outermost level must have a " ." appended to 
their names when referring to them in sdb. The command 

*proc.:13b — the " *" is sdb’s prompt 


will set a break point at line 13 in procedure " proc" (there is no 
difference in the way that procedures and functions are referred to in 
sdb). 


Nested routines are referred to by the concatenation of the names of 
the enclosing routines and the routine name. The routine names are 
separated by dots (" ). So a function " func" nested in procedure 

" proc" is referred to as " proc.func" . Another function " func” 
nested in procedure " proc2" would be referred to as " proc2.func" . 
The command 

*proc2.func:7b 

will set a breakpoint at line 7 in the function " func" which is nested 
in procedure " proc2" . 
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To set breakpoints in the program block, simply omit the routine 
name and colon. The following command sets a breakpoint at line 23 
in the program block. 

*23b 

Sdb will be able to set and display all of Pascal’s simple types and 
any combination of pointers to, or arrays and records thereof. Reals, 
integers, and chars are displayed in the obvious manner. Booleans 
and enumerations can be displayed as numeric values with the first 
value being 0 (e.g., false is 0, true is 1). It is important to note that 
the compiler may use a char to contain a sufficiently small 
enumeration or subrange, therefore their values should always be 
requested in decimal format, as in: 


*enumvar/d 


The same is true for booleans which are always stored as chars. All 
C arrays start at 0, so the first element of an array " ar" is referred 
to as " ar[0]" in sdb, no matter what the actual index range is. Minor 
adjustments must be made to use C syntax when displaying pointers 
to records. For example, " ptr->field" is used instead of " ptr .field" 
to refer to a field in a record referenced via a pointer. The easiest 
way to get information about structured data is often to simply let 
sdb do the formatting, as in: 


*recordvar/ 


One circumstance in which this is not advisible is when the 
structured datum is an " array of char" . The debugger expects these 
to be C strings and prints characters until a NULL character is 
encountered. Use the following to display an " array of char" . 

* array of charvar [ ] / 
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A final point on naming, unless the program has been compiled 
with the -A option, all names will be entirely in lower case. More 
details on the usage of sdb can be found under sdb(l) in the UNIX 
System User's Manual and in SDB - A Symbolic Debugger by 
H.P.Katseff. 
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EXAMPLE - Symbolic Debugging 

program towers(output); 
const 

numdisks = 5; 

type 

diskrange = 1.. numdisks; 
tower = record 

stack : array[diskrange] of diskrange; 
numontower : integer; 

end; 

var 

t : array[1..3] of tower; (* the three towers *) 
i : diskrange; 

(* move number disks from tower from, to tower dest, 
using temp as a temporary *) 

procedure hanoi(number : diskrange; from, dest, temp : integer); 

(* move top disk on tower from to tower dest *) 
procedure movetop(from, dest : integer); 

var numonfrom, numondest : integer; 

begin 

numonfrom := t[from]. numontower; 

numondest := t[dest].numontower 4- 1; 

t[dest].stack[numondest] := t[from].stack[numonfrom]; 

t[dest]. numontower := numondest; 

t[from]. numontower := numonfrom - 1; 

end; 


begin 

if number > 1 then hanoi(number-l, from, temp, dest); 
movetop(from, dest); 

if number > 1 then hanoi(number-l, temp, dest, from); 
end; 


begin 

t[l]. numontower := numdisks; 
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for i := 1 to numdisks do t[l].stack[i] := numdisks - i + 1; 

t[2].numontower := 0; 

t[3].numontower := 0; 

hanoi(numdisks, 1, 3, 2); 

writeln(’done’); 

end. 

Suppose we have the preceding program in a file named " towers.p" 
and we wish to trace its execution with sdb. The following is an 
example of how we might go about accomplishing this. The text 
following the " — " is commentary added later. The asterisk " *" is 
sdb’s prompt. 

$ pc -g -o towers towers.p -- Compile the program with the -g option. 
$ sdb towers — Call sdb on the executable. 

No core image 

*hanoi.movetop:b — Set a breakpoint on procedure movetop. 

0x2 (hanoi.movetop:25+2) b 
*r — Run the program, 

towers 

Breakpoint at 

0x2 in hanoi.movetop:25: begin 

*t — Print a stack trace. 

hanoi.movetop(from=l,dest=3) [t.p:25] 
hanoi.(number= A ,from=l,dest=3,temp=2) [t.p:35] 
hanoi.(number= B ,from=l,dest=2,temp=3) [t.p:34] 
hanoi.(number= C ,from=l,dest=3,temp=2) [t.p:34] 
hanoi.(number= D ,from=l,dest=2,temp=3) [t.p:34] 
hanoi.(number= E ,from=l,dest=3,temp=2) [t.p:34] 
main(l, 2147480984, 2147480992) [t.p:44] 

*t/ — Print global variable t. 

t[0].numontower/ 5 

t[0]. stack/ E D C B A 

t[l].numontower/ 0 

t[l]. stack/ 

t[2].numontower/ 0 

t[2]. stack/ 

*t[0].stack[]/d — Print part of t in more useful format. 

t[0].stack[0]/ 5 

t[0].stack[l]/ 4 

t[0].stack[2]/ 3 

t[0].stack[3]/ 2 
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t[0].stack[4]/ 1 
*s 

hanoi.movetop:25: 

*s 

hanoi.movetop:26: 

*s 

hanoi.movetop:27: 

*numonfrom/ 


— Single step. 

begin 

numonfrom := t[from].numontower; 

numondest := t[dest].numontower + 1; 

— Print local variable numonfrom. 


5 

*c — Continue executing. 

Breakpoint at 

0x2 in hanoi.movetop:25: begin 

*t — Print stack trace. 

hanoi.movetop(from=l,dest=2) [t.p:25] 

hanoi.(number= B ,from=l,dest=2,temp=3) [t.p:35] 
hanoi.(number= C ,from=l,dest=3,temp=2) [t.p:34] 
hanoi.(number= D ,from=l,dest=2,temp=3) [t.p:34] 
hanoi.(number= E ,from=l,dest=3,temp=2) [t.p:34] 
main(l, 2147480984, 2147480992) [t.p:44] 

*hanoi.:number/d — Display one of hanoi’s arguments. 

2 — A value is printed for each 

3 — activation of hanoi starting 

4 — with the most recent. 

5 

*n — Exit sdb. 


Profiling of Pascal Programs 

Pascal programs which have been compiled with the p option may be 
profiled with prof. Simply run the program and then type prof 
program name. A list of routines and their associated statistics will 
be written to standard output. (See prof(l) in the UNIX System 
User's Manual .) 
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Utilities 

The object file utilities and archive utility will work with object files 
created by the Pascal compiler. A symbol is entered into the object 
file by the compiler with the C type used to represent it. Only these 
C types will be displayed when using the object file utilities. The 
make command may also be used with Pascal programs. (See 
make(l), dump(l), nm(l), and ar(l) in the UNIX System User's 
Manual .) 
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CHARACTER SET REPRESENTATION 

The standard ASCII character set is available to UNIX Pascal 
programs. A listing of this character set is included here for 
reference. Each entry contains an ASCII character and its decimal 
equivalent. Most of the values in this table can be easily checked 
using the Pascal ordinal functions ord and chr. 


ASCII CHARACTER SET 


000 

nul 

001 

soh 

O 

o 

six 

003 

etx 

004 eot 

005 

enq 

006 

ack 

007 

bel 

008 

bs 

009 

ht 

010 

nl 

Oil 

vt 

012 i 

rip 

013 

cr 

014 

so 

015 

si 

016 

die 

017 

del 

018 

dc2 

019 

dc3 

020 < 

dc4 

021 

nak 

022 

syn 

023 

etb 

024 

can 

025 

em 

026 

sub 

027 

esc 

028: 

fs 

029 

gs 

030 

rs 

031 

us 

032 

sp 

033 

| 

034 

" 

035 

if 

036 

$ 

037 

% 

038 

& 

039 

’ 

o 

o 

( 

041 

) 

042 

* 

043 

+ 

044 


045 

- 

046 


047 

/ 

048 

0 

049 

1 

050 

2 

051 

3 

052 

4 

053 

5 

054 

6 

055 

7 

056 

8 

057 

9 

058 


059 

J 

060 

< 

061 

= 

062 

> 

063 

? 

064 

@ 

065 

A 

066 

B 

067 

C 

068 

D 

069 

E 

070 

F 

071 

G 

072 

H 

073 

I 

074 

J 

075 

K 

076 

L 

077 

M 

078 

N 

079 

0 

080 

P 

081 

Q 

082 

R 

083 

S 

084 

T 

085 

U 

086 

V 

087 

W 

088 

X 

089 

Y 

090 

Z 

091 

[ 

092 

\ 

093 

] 

094 


095 


096 

‘ 

097 

a 

098 

b 

099 

c 

100 

d 

101 

e 

102 

f 

103 

g 

104 

h 

105 

i 

106 

j 

107 

k 

108 

1 

109 

m 

110 

n 

111 

0 

112 

P 

113 

q 

114 

r 

115 

s 

116 

t 

117 

u 

118 

V 

119 

vv _ 

120 

X 

121 

y 

122 

z 

123 

.( 

t 

124 

i 

125 

\ 

j 

126 

~ 

127 

del 
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Statement of Compliance 

UNIX Pascal complies with the requirements of 

ANSII/IEEE770X3.97-1983 with the following exceptions: 

1. The compatibility requirement for sets is more stringent. 
Replace section 6.4.5 item (c) with Tl and T2 are set-types of the 
same base type , and either both Tl and T2 are designated packed 
or neither Tl nor T2 is designated packed. 

2. The deviation from the standard of an identifier application 
occurring before its defining point is not detected in the case that 
the identifier also has a defining point in an enclosing scope. 


Implementation Defined Features 

This section describes the implementation defined features of the 
UNIX Pascal compiler. 

1. Character Set - The full 128 character ASCII character set is 
recognized by the compiler. Upper and lower case characters 
are not distinguished in Pascal identifiers unless the -A option 
is specified. 

2. Largest Integer - The value of the Pascal constant MAXINT is 
the value of the largest signed C integer on the given system. 

3. Maximum Set Size - The implementation allows sets to contain 
as many as 65535 elements. The ordinal range of the base type 
must be in the closed interval -32768 to 32767. 

4. Range of Real Numbers - The range of real numbers is the same 
as that of the C double on the given system. 
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5. Arithmetic Accuracy - The accuracy of real arithmetic 
operations is the same as the corresponding C double arithmetic 
operations on the given system. 

6. Output Conventions - The procedures write and writeln display 
Boolean values and exponent characters in real numbers in 
lower case. Default field-widths for real, integer and Boolean 
values are 22, 10 and 5 respectively. 

7. Exponents - Exponents are represented by three digits on 3B 
systems and by two digits on VAX systems. 

8. Page Procedure - The procedure M page" causes a " L" character 
(ASCII 014) to be written onto the text file associated with its 
argument. 


Handling of Errors 

The ANSII standard defines an error to be a violation by a program 
of the requirements of this standard that a processor is permitted to 
leave undetected. These errors are listed in appendix D of the 
standard. UNIX Pascal handles these errors in the following ways 
(see [1] for text of the errors): 

1. Errors 1, 3, 7, 9, 10, 11, 13, 14, 15, 16, 17, 18, 23, 26, 28, 29, 31, 32, 
33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 49, 51, 52, 53, 54, 55, 
56, 57, and 58 are always detected by the processor. 

2. Error 47 (integer operation performed incorrectly) is always 
detected with the exception that integer overflow is not detected 
on the 3B20S. 

3. Errors 4 and 24 are sometimes detected by the processor. 

4. Errors 2, 5, 6, 12, 19, 20, 21, 22, 25, 27, 30, 43, and 48 are not 
detected by the processor. 

5. Errors 8 and 50 will not occur because of compile time 
restrictions enforced by the processor (see item 2 in compliance 
statement above). 
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PASCAL REFERENCES 

The following references contain useful information about the 
language Pascal. Reference [3] is an excellent introduction to 
programming in Pascal that can be used by novice and experienced 
programmers. 

[1] IEEE Standards Committee, American National Standard 
Pascal Computer Programming Language, John Wiley and 
Sons Inc., 1983 

[2] Jensen, K., Wirth, N., Pascal User Manual and Report, 
Springer-Verlag, Second Edition, 1978 

[3] Wilson, I. R., Addyman, A. M., A Practical Introduction to 
Pascal, Springer-Verlag New York Inc., Second Edition, 1982 

[4] Wirth, N., Algorithms + Data Structures = Programs, Prentice 
Hall Inc., 1975 
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NAME 

pc - Pascal compiler 
SYNOPSIS 

pc [ option ] ... file ... 

DESCRIPTION 

Pc is the UNIX Pascal compiler. Arguments with names ending in .p are 
taken to be Pascal source programs; they are compiled, and the object for 
each is placed in a file with the same name as the source but with .o 
replacing .p. If a single source program is compiled and linked, the .o file 
will be removed. 

Files ending in .s are taken to be assembly source files and are processed 
in a similar manner. Other files are used as libraries. 

When a program is separated into more than one .p file, exactly one 
source file must supply a program statement in order to successfully 
create the executable. The rest of the files must consist of declarations 
which logically nest within the program. Variables shared amongst 
source files must be declared at the outermost level of nesting on the files 
where they are used. Functions and procedures must be declared with 
the external directive (similar to forward) on the files where they are 
called but not defined. 

Object files created by the C compiler may be linked together with object 
files created by pc. The functions and procedures they define must 
have been declared on the .p files which call those routines with the 
external C directive. Calling conventions are as in C, with var parame- 
ters passed by address. 

See the UNIX Pascal Compiler User's Guide for details. 

The following options have the same meaning as in cc(l). See ld( 1) for 
link-time options. 

— c Suppress the link edit phase of compilation, and force an object file 

to be produced even if only one source file is being compiled. 

— g Have the compiler produce additional symbol table information for 

sdb( 1). 

—I name 

Specify directory, name , to be searched for include files. If this 
option is used more than once, the directories will be searched in 
the order they appear on the command line. 

-O Invoke a peephole optimizer. 

— o output 

Name the final output file output instead of a.out. 

— p Prepare object files for profiling, see prof( 1). 

-S Compile the named program, and leave the assembler-language 
output on the corresponding file suffixed .s. 
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-W c, argl|, arg2...| 

Pass the argument [s] aryi to pass c where c is one of [012al] indi- 
cating first pass, second pass, optimizer, assembler, or link editor, 
respectively. 

The following options are peculiar to pc. 

-A Distinguish upper from lower case, and permit underscores (’_’) in 
identifiers. 

-b Block buffer the file output. 

— u Don’t buffer the file output. 

— n Accept standard Pascal only; non-standard constructs cause diag- 

nostics to be issued and inhibit generation of an executable file. 

— q stack_size 

Change the limit on the stack size from the default to stack_size. 
The check for stack overflow will not be made if the t option is 
present. 

— t Supress code to perform runtime checks and initialize all variables 

to zero. 

— T args 

Suppress specific runtime checks. The checks to be suppressed are 
indicated by the characters in the string args. The characters have 
the following meanings: 

z - don’t zero out dynamic and local variables 
r - don’t do index and scalar range checks 
n - don’t do valid pointer 
i - don’t do output checks 
s - don’t do stack overflow check 

d - don’t do divide by zero and mod by negative checks 
— w Suppress warning messages. 

Other options are passed to the link editor. 


FILES 


file.p 

pc.pcl 

/tmp/pascal* 

/usr/lib/pcO 

/lib/pcl 

/lib/pc2 

/lib/as 

/lib/ld 

/lib/crtO.o 

/lib/mcrtO.o 

/usr/lib/libpc.a 

library 

/usr/lib/libm.a 

/lib/libc.a 


pascal source files 

temporary 

temporary 

compiler 

code generator 

peephole optimizer 

assembler 

link editor 

runtime startoff 

startoff for profiling 

intrinsic functions and I/O 


math library 

standard library, see intro( 3) 


SEE ALSO 


UNIX Pascal Compiler User's Guide 
ld(l) prof(l) sdb(l) 
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COMMENT FORM 


Your comments and suggestions are appreciated and will help us to provide the best 
documentation for your use. 

1. How would you rate this document for COMPLETENESS? (Please Circle) 


Excellent Adequate Poor 

4 -3 2 — - - -1 0 


2. Identify any information that you feel should be included or removed. 


3. How would you rate this document for ACCURACY of information? (Please Circle) 


Excellent Adequate Poor 

4 3 —2 1 0 


4. Specify page and nature of any error(s) found in this document. 


5. How would you rate this document for ORGANIZATION of information? (Please Circle) 


Excellent Adequate Poor 

4 3 - 2 1 0 


6. Describe any format or packaging problems you have experienced with this document. 


7. Do you have any general comments or suggestions regarding this document? 


8. We would like to know a little about your background as a user of this document: 


A. Your job function 

B. Number of years experience with computer hardware: operation , 

maintenance . 

C. Number of years experience with computer software: user , 

programmer . 

Your Name Phone No. 

Company 

Address 

City & State Zip Code 
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